%% Referentieimplementatie eig

function expresult = eigsimple(A)
    [V,D]=eig(A);
    values = diag(D);
    exps = exp(values);
    % hint uit help en opgave : A/B = (B'\A')'
    V';
    (V*diag(exps))';
    expresult = (V'\(V*diag(exps))')';
end